PPPPPPPPPPPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 
PPP PPP 
PPP PPP 
PPP PPP 


PPP PPP 
PPP PPP 


PPP PPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 


tt tt ot st tt Ht 4 St St Ht Ht Ht SH Ht 

AAAs tH HS HH 

A a A A A tH tt 
AAAAAAOOOAAMAAOO 
AAQMAAAAOAOAMAAAOAO 
NOAAMAAAAAAAAAOOO 


HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHHHHHHHHHHHHHH 
HHHHHHHHHHHHHHH 
HHHHHHHHHHHHHHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 
HHH HHH 


| 
ed 


———— 


M 2 
hott nen 
PPPPPPPP AAAAAA TTTTTTTTTT KK KK EEEGEEEEEEE YY YY 
PPPPPPPP AAAAAA TTITTTTTITTT KK KK EEEEEEEEEE YY YY 
PP PP AA AA TT KK KK EE YY YY 
PP PP AA AA TT KK KK EE YY YY 
PP PP AA AA TT KK KK EE YY YY 
Pp PP AA AA TT KK KK EE yY YY 
PPPPPPPP AA TT KKKKKK EEEEEEEE YY 
PPPPPPPP A TT KKKKKK EEEEEEEE YY 
PP AAAAAAAAAA TT K KK EE YY 
PP AAAAAAAAAA TT KK KK EE YY 
PP AA AA TT KK KK EE YY oT 
PP AA AA TT KK KK EE YY con 
PP AA AA TT KK KK EEEEEEEEEE YY > 
PP AA AA TT KK KK EEEEEEEEEE YY - 
RRRRRRRR EEEEEEEEEE QQQ00Q 
RRRRRRRR EEEEEEEEEE QQQQQ0 
Rk RR EE QQ QQ 
RR RR EE QQ QQ 
RR RR EE QQ QQ 
RR RR EE QQ QQ 
RRRRRRRR EEEEEEEE QQ QQ 
RRRRRRRR EEEEEEEE QQ QQ 
RR RR EE QQ QQ Qa 
RR RR EE QQ QQ QQ 
RR RR EE QQ QQ 
RR RR EE QQ QQ 
RR RR EEEEEEEEEE QaQQaag QQ 
RR RR EEEEEEEEEE QQQQ Qa 
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: PATKEY.BEG = Defines keywords for all 
; ATCH syntax. 
: Version ‘v03-001' 


' 
ROR RARER REE EEE AAA 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
‘* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
!* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
ie Sok hs ad MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 


* 

® 

® 

* 

* 

® 

® 

® 

: * 
is TRANSFERRED. * 
*® 

ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
® 

® 

® 

* 

* 

® 

* 

* 


:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
:® CORPORATION. 


!* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


SOR ORR ARERR RARER EEE REA AAAEEEERER AA AAER AEA EEEEAEEE EAA 


PATCH Version ‘V04-000', 17-Oct-77 
corresponds to FCSMAR.PAT, FCSFOR.PAT, BLITST.PAT. 


! Modified By: 


i 

i 

i 

i 

1 

: v03-001 MTROO21_ Mike Rhodes 2-Feb-1983 

} Fix minimal abbreviation for HELP to be characters. 
' 


‘ee 
The keyword_table is made of four-tuple entries, 
the first of which is the keyword token equivalent, the 
' second the number of characters in the minimal abbreviation, 
the third the number of characters in the ASCII string that 
is the seyyord. and the fourth, the keyword itself represented 
! as an ASCII string. 


' 

i 

i 

! 

i 

i 

: 

: key mame formats table entries for the keyword_table. 

! Each entry has three formais: the ASCII string represens es 4 
! PATCH keyword, the length of that ASCII] string abbreviated, and the 
lexically equiv 

| 


alent token for that keyword. 


ACRO 

key_name (kname, kabbrev, kequiv) = kequiv, kabbrev, ZCHARCOUNT (kname), Z%ASCI! knamed; 
‘ee 
! The keyword_table can be viewed as n-byte entries, where the 


MA 
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' first 


second 


he len 
abbrevia 


¢ 
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7 contains the token equivalent of a keyword, the 


th of the ASCII string repcesens ine the smallest 
ion of the keyword, the third the length of the 


' 
i Legal 
; ASCII strina peproesnt tog T's entire ea and the fourth, 


} the first byte of the A 


LITERAL 


'e¢ 


kword_token =0, ! offset to token for a keyword 
kword_abbrev =1, ! offset to minimum keyword abbreviation 
kword_ length =¢° ! offset to keyword +44 He in characters 
kword_name =3, ! offset to keyword ASCII representation 
kword_overhead =3; ! overhead for each entry 


! MARS tables 


BIND 


I string itse 


keyword_table = UPLIT BYTE ( 


key_name 
key_name 
key_name 
key_name 
sey name 
KEY _NAME 
key_name 
key_name 
key_name 
key_name 
key_name 
key_name 
key_name 
key_name 
key_name 
key_name 
key_name 
key_name 
key_name 
key_name 
key_name 
key_name 
key_name 
key_name 
key_name 
key_name 
key_name 
key_name 
key_name 
key_name 
key_name 
key_name 
key_name 
key_name 
key_name 
key_name 


("ALIGN', 2, align_token), 
("ALL', $, all_token), 
2,_and_token), 
C'ASCIE', 2, aScii_token), 
("BYTE’, 1, byte_token), 
ANCEL', 2, CANCEL_TOKEN), 
ECK’, check_token), 
EATE® 2, create_token), 
sit’, f, deposTt_token), 
MAL", 3, decimal_token), 
E‘, 3, define_token), 
i delete_token), 
ne’, f, examine_token), 
- eco_token), 
eq_token) 
"72, evaluate_token), 
3, exit_token), 
ge_token), 
*, 2. globals_token), 


° insert_token . 
le_token), 
- ¢. Literal token), 

Long token), 
en) 
pé*, 1, mode_token) 

DULE*,°4, module_token), 
’ ne_token),— 

3, _noascii_token), 
NOGLOBALS* | °3, nggloBals, token) 
NOINSTRUCTION', 3, noinstruc_token), 
NOSCOPE', 4, noscope_token), 


| 
| 


BES 2% SRE SERRE So eae 1 Ss 
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key_name CNT Se ne 4, Dh mt token), 
key_name (‘NOT' not 
key_name ('OCTAL', 2, otal token), 
key_name ('OR', 2, or_token), 
key_name ("PAGE', pagg.to token), 
key_name ("PATCH_AREA patch_are_token), 
key_name (‘QUAD' 1, vad. token); 
key_nane fo trobe ce" . réplace_token), 
key_name (‘SCOPE é, scope_token), 
key_name (*SET". 5 set token), 
key_name ("SHOW', é, show_ token), 
key_name ('SYMBOLS', 2, symbols_ token), 
key_name ("UPDATE', 1, update_token), 
key_name (‘VERIFY', 1, verify_token), 
bey. _name ('WORD', F word_to zn), 

) : VECTOR C, BYTE); 
PATKEY.REQ - last Line 
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ve 


- 3 
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MA 
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